home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / FredFish PD 317.adf / Uniq / uniq.c < prev   
C/C++ Source or Header  |  1990-02-06  |  8KB  |  472 lines
  1. /************************************************************************ 
  2. *                                                                       * 
  3. *                                                                       * 
  4. *                      Filename:        uniq.c                          *      
  5. *                                    *
  6. *  uniq - compact repeated lines        Author: John Woods      *
  7. *                                    *
  8. *      ( looks like UNIX version )                    *
  9. *                                    *
  10. * Written 02/08/86 by John Woods, placed into public domain.  Enjoy.    *
  11. *                                    *
  12. * Amiga port by Gary Duncan , Canberra Australia                        * 
  13. *                                                                       * 
  14. *                                                                       * 
  15. *-----------------------------------------------------------------------* 
  16. *
  17. *
  18. * 
  19. * Modification record: 
  20. *~~~~~~~~~~~~~~~~~~~~
  21. * 
  22. * Date         By whom             Change 
  23. * ----         -------             ------ 
  24. * 
  25. *        JW           Original 
  26. * 04Jan90     GMD           Amiga port : reformatted, headers 
  27. *                         added , usage() added.    
  28. *                        +/-n option bug fixed
  29. *
  30. * Function    Description
  31. * ~~~~~~~~    ~~~~~~~~~~~ 
  32. *+ main  
  33. *+ skip 
  34. *+ equal
  35. *+ show
  36. *+ uniq  
  37. *+ usage
  38. *+ getline
  39. *+ xfopen 
  40. *+  
  41. *
  42. *
  43. *******************************************************************************/
  44.  
  45. #include "stdio.h"
  46. #include "ctype.h"
  47.  
  48. /*
  49.  *    give a version # ( GMD )
  50.  */
  51. #define    VERS    "1.1"
  52.  
  53. /* If the symbol WRITE_ERROR is defined, uniq will exit(1) if it gets a
  54.  * write error on the output.  This is not (of course) how V7 uniq does it,
  55.  * so undefine the symbol if you want to lose your output to a full disk
  56.  */
  57.  
  58. #define WRITE_ERROR 1
  59. #define GBUF 1024 
  60.  
  61. extern char *MakeDate[] ;
  62.  
  63. FILE *fopen();
  64. FILE *xfopen();
  65.  
  66. char xbuffer [BUFSIZ];
  67. int xuflag = 1;            /* default is union of -d and -u outputs */
  68. int xdflag = 1;            /* flags are mutually exclusive */
  69. int xcflag = 0;
  70. int xfields = 0;
  71. int xchars = 0;
  72.  
  73.  
  74. char *xcurline ;
  75. char *xprevline ;
  76. char xbuf1 [GBUF]  ;
  77. char xbuf2 [GBUF]  ;
  78.  
  79. /*************************************************************************** 
  80.  
  81.  
  82.   Name :          main
  83.  
  84.   Purpose:    ..every C prog deserves one..
  85.  
  86.  
  87.   Entry    :           
  88.  
  89.  
  90.   Returns  :           
  91.                                
  92.  
  93.  
  94. ****************************************************************************/ 
  95.  
  96.  
  97. int
  98. main(argc,argv)
  99. char *argv[];
  100. {
  101.   char *p;
  102.   int inf = -1, outf;
  103.  
  104.  
  105.   if (argc == 1 )
  106.   {
  107.     usage() ;
  108.     exit (1) ;
  109.   }    
  110.  
  111.   setbuf(stdout, xbuffer);
  112.   
  113.   for (--argc, ++argv; (argc > 0) && (**argv == '-' || **argv == '+');
  114.        --argc, ++argv) 
  115.   {
  116.       if (**argv == '+')
  117.           xchars = atoi(*argv + 1);
  118.  
  119.       else if (isdigit(argv[0][1]))
  120.           xfields = atoi(*argv + 1);
  121.  
  122.       else if (argv[0][1] == '\0')
  123.           inf = 0;        /* - is stdin */
  124.  
  125.       else
  126.       {
  127.           for (p = *argv+1; *p; p++) {
  128.               switch(*p) {
  129.               case 'd':    
  130.                 xdflag = 1; 
  131.                 xuflag = 0;     
  132.                 break;
  133.               case 'u':    
  134.                 xuflag = 1; 
  135.                 xdflag = 0; 
  136.                 break;
  137.               case 'c':    
  138.                 xcflag = 1; 
  139.                 break;
  140.               default:    
  141.                 usage();
  142.                 exit(1) ;
  143.           }
  144.          }
  145.       }
  146.   }
  147.   /* input file */
  148.   if (argc == 0)
  149.     inf = 0;
  150.   else
  151.     if (inf == -1) {        /* if - was not given */
  152.         fclose(stdin);
  153.         xfopen(*argv++, "r");
  154.         argc--;
  155.       }
  156.  
  157.   if (argc == 0) 
  158.     outf = 1;
  159.   else {
  160.       fclose(stdout);
  161.      xfopen(*argv++, "w");
  162.      argc--;
  163.   }
  164.  
  165.   uniq();
  166.   fflush(stdout);
  167.   exit(0);
  168. }
  169.  
  170. /*************************************************************************** 
  171.  
  172.  
  173.   Name :          skip
  174.  
  175.   Purpose:
  176.         +- n options ; skip fields / charas in fields
  177.  
  178.   Entry    :           
  179.  
  180.  
  181.   Returns  :           
  182.         ptr to (+nth) chara  in (-nth)field
  183.         or NULL if not found                                
  184.  
  185.  
  186. ****************************************************************************/ 
  187.  
  188.  
  189.  
  190. char *skip(s)
  191.  
  192. char *s;
  193. {
  194. int n;
  195.   
  196.   /* skip xfields */
  197.  
  198.   for (n = xfields; n > 0 ; --n) 
  199.   {
  200.                             /* skip blanks */
  201.     while (*s && (*s == ' ' || *s == '\t')) 
  202.         s++;
  203.  
  204.     if (!*s)
  205.          return s;
  206.  
  207.     while (*s && (*s != ' ' && *s != '\t')) 
  208.         s++;
  209.  
  210.     if (!*s) 
  211.         return s;
  212.   }
  213.   /* skip characters */
  214.   
  215.   for (n = xchars; n > 0; --n) {
  216.     if (!*s) 
  217.         return s;
  218.     s++;
  219.   }
  220.   return s;
  221. }
  222.  
  223. /*************************************************************************** 
  224.  
  225.  
  226.   Name :          equal
  227.  
  228.   Purpose:
  229.         tests 2 strings for equality
  230.  
  231.   Entry    :           
  232.  
  233.  
  234.   Returns  :           
  235.                                
  236.  
  237.  
  238. ****************************************************************************/ 
  239.  
  240.  
  241.  
  242. int equal(s1, s2) 
  243.  
  244. char *s1, *s2;
  245. {
  246.   return !strcmp( skip(s1), skip(s2));
  247. }
  248.  
  249. /*************************************************************************** 
  250.  
  251.  
  252.   Name :          show
  253.  
  254.   Purpose:
  255.  
  256.  
  257.   Entry    :           
  258.  
  259.  
  260.   Returns  :           
  261.                                
  262.  
  263.  
  264. ****************************************************************************/ 
  265.  
  266.  
  267.  
  268. void
  269. show(line,count) 
  270.  
  271. int  count ;
  272. char *line; 
  273. {
  274.   if (xcflag) 
  275.     printf("%4d %s", count,line);
  276.   else {
  277.     if ((xuflag && count == 1) || (xdflag && count != 1))
  278.         printf("%s", line);
  279.   }
  280. }
  281.  
  282. /*************************************************************************** 
  283.  
  284.  
  285.   Name :          uniq
  286.  
  287.   Purpose:
  288.  
  289.  
  290.   Entry    :           
  291.  
  292.  
  293.   Returns  :           
  294.                                
  295.  
  296.  
  297. ****************************************************************************/ 
  298.  
  299.  
  300.  
  301.  
  302. int
  303. uniq()
  304. {
  305.   char *ptr;
  306.   int seen = 1 ;
  307.  
  308.   /* initialise "prev" line ( setup ?? ) */
  309.  
  310.   xprevline = xbuf1;
  311.   if (getline(xprevline, GBUF) < 0) 
  312.     return(0);
  313.  
  314.   xcurline = xbuf2;
  315.  
  316.   /* get xcurline and compare 
  317.    * if not equal, dump xprevline and swap pointers 
  318.    * else continue, bumping seen count
  319.    */
  320.   while (getline(xcurline, GBUF) > 0) {
  321.     if (!equal(xprevline, xcurline)) {
  322.           show(xprevline, seen);
  323.           seen = 1;
  324.           ptr = xcurline;
  325.           xcurline = xprevline;
  326.           xprevline = ptr;
  327.     } 
  328.     else
  329.           seen += 1;
  330.   }
  331.   show(xprevline, seen);
  332.   return 0;
  333. }
  334.  
  335. /*************************************************************************** 
  336.  
  337.  
  338.   Name :          getline
  339.  
  340.   Purpose:
  341.  
  342.  
  343.   Entry    :           
  344.  
  345.  
  346.   Returns  :           
  347.             -1 ; EOF                               
  348.             # of charas read 
  349.  
  350. ****************************************************************************/ 
  351.  
  352.  
  353.  
  354.  
  355. int getline(buf,count)
  356.  
  357. char *buf;
  358. int count;
  359. {
  360. char c;
  361. char * cats = buf ;
  362. int ct = 0;
  363.  
  364.     while (ct++ < count) 
  365.     {
  366.       c = getc(stdin);
  367.       if (c <= 0) 
  368.         return(-1);
  369.       *cats++ = c;
  370.       if (c == '\n') 
  371.         {
  372.        *cats++ = 0;
  373.        /*
  374.         *    read another line if no 'n' compliance
  375.         */
  376.         if ( xchars || xfields )
  377.         {
  378.         if ( *skip(buf) == '\0' )
  379.         {
  380.            ct = 0 ;
  381.            cats = buf ;
  382.         }
  383.         else        /* exit */
  384.            return (ct) ;
  385.         }
  386.         else
  387.         return (ct) ;  
  388.     }
  389.      }
  390.   return(ct);
  391.  
  392. }
  393.   
  394.  
  395. /*************************************************************************** 
  396.  
  397.  
  398.   Name :          xfopen
  399.  
  400.   Purpose:
  401.  
  402.  
  403.   Entry    :           
  404.  
  405.  
  406.   Returns  :           
  407.                                
  408.  
  409.  
  410. v****************************************************************************/ 
  411.  
  412.  
  413.  
  414. FILE *xfopen(fn, mode)
  415.  
  416. char *fn, *mode; 
  417. {
  418.   FILE *p;
  419.   extern int errno;
  420.   extern char *sys_errlist[];
  421.  
  422.   if ((p = fopen(fn,mode))  == NULL) {
  423.       perror("uniq");
  424.     fflush(stdout);
  425.     exit(1);
  426.   }
  427.   return (p);
  428. }
  429.  
  430. /*************************************************************************** 
  431.  
  432.  
  433.   Name :          usage
  434.  
  435.   Purpose:
  436.  
  437.  
  438.   Entry    :           
  439.  
  440.  
  441.   Returns  :           
  442.                                
  443.  
  444.  
  445. ****************************************************************************/ 
  446.  
  447.  
  448. int
  449. usage()
  450.  
  451. {
  452. static char *rats[] = {
  453.   "      - Written by John Woods (Amiga port by Gary Duncan)\n",
  454.   "usage:    uniq [-udc] [+n] [-n] [input [output]]" ,
  455.   "             -c ; print lines , count repeated ones",
  456.   "             -d ; print first occurrence of replicated lines only (default)",
  457.   "             -u ; print only unique lines",
  458.   "             +n ; skip n charas from start of field",
  459.   "             -n ; skip n fields from start of line",
  460.   ""
  461.     } ;
  462.  
  463. int    j = 0 ;
  464. char * ptr  ;
  465.  
  466.  
  467.     fprintf(stderr, "uniq: Version %s [ %s ]\n" , VERS , MakeDate[0] ) ;
  468.     
  469.       while ( *(ptr=rats[j++]) )
  470.           fprintf(stderr,"%s\n" , ptr );
  471. }
  472.